<%@ Page Language="VB" ClassName="TestCodeInside" CodeFile="CodeInside.aspx.vb" Inherits="TestCodeInside" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">

<script runat="server" type="text/VB">

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
        Button1.Text = DateTime.Now.ToString()
    End Sub
      
    <MetaSapiens.PageMethods.PageMethod()> _
    Protected Sub MethodInside(ByVal i As Integer)
        Label1.Text = "MethodInside invoked"
    End Sub

</script>

<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
    <title>CodeInside</title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
      <asp:Label ID="Label1" runat="server" /><br />
      <br />
      <asp:Button ID="Button1" runat="server" OnClick="Button1_Click" Text="Button" /></div>
    </form>
</body>
</html>
